home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Pitch Class Set / pcs-transpose < prev   
Text File  |  1998-08-11  |  1KB  |  36 lines
  1. pcs-transpose type transp-value set
  2.  
  3. type - :integer :symbol :pitch
  4.  
  5. Allen Forte's unique notation system commonly known as Forte Notation has come to be recognised as one of the most successful attempts at providing a means of describing and analysing musical pitch structures that defy interpretation as tonal or 12-note serial systems. Thus, Forte's system is equally at home describing Ives and Stravinsky as it is Schoenberg and Webern.
  6.  
  7. Such a system able to deal with intervallic relationships from pitch class extrapolations of material has a potential within SCOM to be itself a generator of pitch series.
  8.  
  9. The function pcs-transpose enables an intervallic statement in symbols or integers to be transposed in accordance with the protocol attached to the transposition of pitch class sets.
  10.  
  11. (pcs-transpose :integer 3 (pcs :integer '6-Z10))
  12. => (3 4 6 7 8 10)
  13.  
  14. (pcs-transpose :pitch 3 (pcs :integer '6-Z10))
  15. => (d#4 e4 f#4 g4 g#4 a#4)
  16.  
  17. (pcs-transpose :symbol 3 (pcs :integer '6-Z10))
  18. => (d e g h i k)
  19.  
  20. Multiple lists may be processed by writing the transp-value for each list in its own list, thus: 
  21.  
  22. (pcs-transpose :integer '(3 11) (pcs :integer '(5-1 5-8)))
  23. => ((3 4 5 6 7) (11 1 2 3 5))
  24.  
  25. (pcs-transpose :integer 4 '(0 1 2 4 5 7 8))
  26. => (4 5 6 8 9 11 0)
  27.  
  28. (pcs-transpose :symbol '(0 7) (pcs :symbol '(5-1 5-8)))
  29. => ((a b c d e) (h j k l b))
  30.  
  31. (pcs-transpose :integer '(0 6 11) (pcs :integer '(5-1 5-8 6-Z10)))
  32. => ((0 1 2 3 4) (6 8 9 10 0) (11 0 2 3 4 6))
  33.  
  34.  
  35.  
  36.